/ BBS in a Box 12 / BBS in a box XII-2.iso / Files II / Prog / D-G / FORTRAN Goodies.sit / FORTRAN Goodies / String Utilities / CharWord.f

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0a 43 68 61 72 57 6f | 72 64 2e 66 00 00 00 00 |..CharWo|rd.f....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 08 88 00 | 00 01 7e a3 82 d8 ec a3 |........|..~.....|
|00000060| 82 d8 ec 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 df 2c 00 00 |........|.....,..|
|00000080| 63 0d 63 20 09 52 65 74 | 75 72 6e 73 20 74 68 65 |c.c .Ret|urns the|
|00000090| 20 4e 2d 74 68 20 77 6f | 72 64 20 28 73 70 61 63 | N-th wo|rd (spac|
|000000a0| 65 20 64 65 6c 69 6d 69 | 74 65 64 29 0d 63 0d 63 |e delimi|ted).c.c|
|000000b0| 20 09 46 75 6e 63 74 69 | 6f 6e 20 43 68 61 72 57 | .Functi|on CharW|
|000000c0| 6f 72 64 0d 63 09 09 54 | 61 6b 65 73 20 61 20 63 |ord.c..T|akes a c|
|000000d0| 68 61 72 61 63 74 65 72 | 20 61 6e 64 20 61 6e 20 |haracter| and an |
|000000e0| 69 6e 74 65 67 65 72 2a | 34 20 77 6f 72 64 20 6e |integer*|4 word n|
|000000f0| 75 6d 62 65 72 20 61 73 | 20 69 6e 70 75 74 2e 0d |umber as| input..|
|00000100| 63 09 09 52 65 74 75 72 | 6e 73 20 61 20 63 68 61 |c..Retur|ns a cha|
|00000110| 72 61 63 74 65 72 2a 28 | 2a 29 20 28 77 6f 72 64 |racter*(|*) (word|
|00000120| 20 6e 29 20 61 73 20 72 | 65 73 75 6c 74 2e 0d 63 | n) as r|esult..c|
|00000130| 09 09 6e 6f 74 65 3a 20 | 77 6f 72 64 73 20 61 72 |..note: |words ar|
|00000140| 65 20 73 65 70 61 72 61 | 74 65 64 20 62 79 20 77 |e separa|ted by w|
|00000150| 68 69 74 65 73 70 61 63 | 65 0d 63 0d 63 09 45 78 |hitespac|e.c.c.Ex|
|00000160| 61 6d 70 6c 65 20 70 72 | 6f 76 69 64 65 64 20 66 |ample pr|ovided f|
|00000170| 6f 72 20 6f 77 6e 65 72 | 73 20 6f 66 20 4c 61 6e |or owner|s of Lan|
|00000180| 67 75 61 67 65 20 53 79 | 73 74 65 6d 73 20 46 4f |guage Sy|stems FO|
|00000190| 52 54 52 41 4e 0d 63 09 | a9 ca 31 39 39 30 20 4c |RTRAN.c.|..1990 L|
|000001a0| 61 6e 67 75 61 67 65 20 | 53 79 73 74 65 6d 73 20 |anguage |Systems |
|000001b0| 43 6f 72 70 2e 0d 63 0d | 63 09 41 64 61 70 74 65 |Corp..c.|c.Adapte|
|000001c0| 64 20 66 72 6f 6d 20 61 | 20 72 6f 75 74 69 6e 65 |d from a| routine|
|000001d0| 20 69 6e 20 57 69 6c 64 | 20 54 68 69 6e 67 73 2e | in Wild| Things.|
|000001e0| 0d 63 0d 20 09 63 68 61 | 72 61 63 74 65 72 2a 28 |.c. .cha|racter*(|
|000001f0| 2a 29 20 66 75 6e 63 74 | 69 6f 6e 20 43 68 61 72 |*) funct|ion Char|
|00000200| 57 6f 72 64 28 74 68 65 | 43 68 61 72 61 63 74 65 |Word(the|Characte|
|00000210| 72 2c 74 68 65 57 6f 72 | 64 4e 75 6d 62 65 72 29 |r,theWor|dNumber)|
|00000220| 0d 09 09 0d 43 09 09 72 | 65 63 65 69 76 65 20 74 |....C..r|eceive t|
|00000230| 68 65 20 61 72 67 75 6d | 65 6e 74 20 62 79 20 44 |he argum|ent by D|
|00000240| 65 73 63 72 69 70 74 6f | 72 0d 0d 09 73 74 72 75 |escripto|r...stru|
|00000250| 63 74 75 72 65 20 2f 44 | 65 73 63 52 65 63 2f 0d |cture /D|escRec/.|
|00000260| 09 09 70 6f 69 6e 74 65 | 72 20 2f 63 68 61 72 61 |..pointe|r /chara|
|00000270| 63 74 65 72 2a 31 2f 20 | 44 61 74 61 50 74 72 0d |cter*1/ |DataPtr.|
|00000280| 09 09 69 6e 74 65 67 65 | 72 2a 32 20 44 61 74 61 |..intege|r*2 Data|
|00000290| 53 69 7a 65 0d 09 09 69 | 6e 74 65 67 65 72 2a 32 |Size...i|nteger*2|
|000002a0| 20 53 79 6d 54 0d 09 65 | 6e 64 20 73 74 72 75 63 | SymT..e|nd struc|
|000002b0| 74 75 72 65 0d 09 72 65 | 63 6f 72 64 20 2f 44 65 |ture..re|cord /De|
|000002c0| 73 63 52 65 63 2f 20 74 | 68 65 43 68 61 72 61 63 |scRec/ t|heCharac|
|000002d0| 74 65 72 0d 0d 09 69 6e | 74 65 67 65 72 2a 34 20 |ter...in|teger*4 |
|000002e0| 09 09 63 68 61 72 64 2c | 73 74 72 6e 67 64 0d 09 |..chard,|strngd..|
|000002f0| 70 61 72 61 6d 65 74 65 | 72 20 09 09 28 63 68 61 |paramete|r ..(cha|
|00000300| 72 64 3d 31 38 2c 73 74 | 72 6e 67 64 3d 31 39 29 |rd=18,st|rngd=19)|
|00000310| 0d 0d 09 69 6e 74 65 67 | 65 72 2a 34 09 09 43 68 |...integ|er*4..Ch|
|00000320| 61 72 61 63 74 65 72 4c | 65 6e 2c 74 68 65 57 6f |aracterL|en,theWo|
|00000330| 72 64 4e 75 6d 62 65 72 | 0d 09 69 6e 74 65 67 65 |rdNumber|..intege|
|00000340| 72 2a 34 09 09 57 6f 72 | 64 2c 73 74 61 72 74 43 |r*4..Wor|d,startC|
|00000350| 2c 73 74 6f 70 43 0d 09 | 6c 6f 67 69 63 61 6c 2a |,stopC..|logical*|
|00000360| 34 09 09 57 68 69 74 65 | 53 70 61 63 65 0d 09 0d |4..White|Space...|
|00000370| 09 70 6f 69 6e 74 65 72 | 09 2f 63 68 61 72 61 63 |.pointer|./charac|
|00000380| 74 65 72 2a 31 2f 20 70 | 74 72 31 2c 70 74 72 32 |ter*1/ p|tr1,ptr2|
|00000390| 2c 70 74 72 33 0d 0d 43 | 20 70 75 74 20 74 68 65 |,ptr3..C| put the|
|000003a0| 20 61 64 64 72 65 73 73 | 20 6f 66 20 74 68 65 20 | address| of the |
|000003b0| 63 68 61 72 61 63 74 65 | 72 73 20 69 6e 74 6f 20 |characte|rs into |
|000003c0| 61 20 6c 6f 63 61 6c 20 | 76 61 72 69 61 62 6c 65 |a local |variable|
|000003d0| 0d 09 0d 09 70 74 72 31 | 20 3d 20 74 68 65 43 68 |....ptr1| = theCh|
|000003e0| 61 72 61 63 74 65 72 2e | 44 61 74 61 50 74 72 0d |aracter.|DataPtr.|
|000003f0| 0d 43 20 73 74 6f 72 65 | 20 74 68 65 20 73 69 7a |.C store| the siz|
|00000400| 65 0d 0d 09 43 68 61 72 | 61 63 74 65 72 4c 65 6e |e...Char|acterLen|
|00000410| 20 3d 20 74 68 65 43 68 | 61 72 61 63 74 65 72 2e | = theCh|aracter.|
|00000420| 44 61 74 61 53 69 7a 65 | 0d 0d 63 20 73 6b 69 70 |DataSize|..c skip|
|00000430| 20 61 6e 79 20 77 6f 72 | 64 73 20 77 65 20 64 6f | any wor|ds we do|
|00000440| 6e 27 74 20 77 61 6e 74 | 0d 0d 09 70 74 72 32 20 |n't want|...ptr2 |
|00000450| 3d 20 70 74 72 31 0d 09 | 57 6f 72 64 20 3d 20 31 |= ptr1..|Word = 1|
|00000460| 0d 09 64 6f 20 77 68 69 | 6c 65 20 28 57 6f 72 64 |..do whi|le (Word|
|00000470| 20 3c 20 74 68 65 57 6f | 72 64 4e 75 6d 62 65 72 | < theWo|rdNumber|
|00000480| 29 0d 09 09 64 6f 20 77 | 68 69 6c 65 20 28 28 57 |)...do w|hile ((W|
|00000490| 68 69 74 65 53 70 61 63 | 65 28 70 74 72 32 29 29 |hiteSpac|e(ptr2))|
|000004a0| 20 2e 61 6e 64 2e 20 28 | 28 70 74 72 32 2d 70 74 | .and. (|(ptr2-pt|
|000004b0| 72 31 29 20 3c 20 43 68 | 61 72 61 63 74 65 72 4c |r1) < Ch|aracterL|
|000004c0| 65 6e 29 29 0d 09 09 09 | 70 74 72 32 20 3d 20 70 |en))....|ptr2 = p|
|000004d0| 74 72 32 20 2b 20 31 0d | 09 09 65 6e 64 20 64 6f |tr2 + 1.|..end do|
|000004e0| 0d 09 09 64 6f 20 77 68 | 69 6c 65 20 28 28 2e 6e |...do wh|ile ((.n|
|000004f0| 6f 74 2e 20 57 68 69 74 | 65 53 70 61 63 65 28 70 |ot. Whit|eSpace(p|
|00000500| 74 72 32 29 29 20 2e 61 | 6e 64 2e 20 28 28 70 74 |tr2)) .a|nd. ((pt|
|00000510| 72 32 2d 70 74 72 31 29 | 20 3c 20 43 68 61 72 61 |r2-ptr1)| < Chara|
|00000520| 63 74 65 72 4c 65 6e 29 | 29 0d 09 09 09 70 74 72 |cterLen)|)....ptr|
|00000530| 32 20 3d 20 70 74 72 32 | 20 2b 20 31 0d 09 09 65 |2 = ptr2| + 1...e|
|00000540| 6e 64 20 64 6f 0d 09 09 | 57 6f 72 64 20 3d 20 57 |nd do...|Word = W|
|00000550| 6f 72 64 20 2b 20 31 0d | 09 65 6e 64 20 64 6f 0d |ord + 1.|.end do.|
|00000560| 0d 63 20 73 6b 69 70 20 | 61 6e 79 20 77 68 69 74 |.c skip |any whit|
|00000570| 65 20 73 70 61 63 65 20 | 62 65 66 6f 72 65 20 64 |e space |before d|
|00000580| 65 73 69 72 65 64 20 77 | 6f 72 64 0d 0d 09 64 6f |esired w|ord...do|
|00000590| 20 77 68 69 6c 65 20 28 | 28 57 68 69 74 65 53 70 | while (|(WhiteSp|
|000005a0| 61 63 65 28 70 74 72 32 | 29 29 20 2e 61 6e 64 2e |ace(ptr2|)) .and.|
|000005b0| 20 28 28 70 74 72 32 2d | 70 74 72 31 29 20 3c 20 | ((ptr2-|ptr1) < |
|000005c0| 43 68 61 72 61 63 74 65 | 72 4c 65 6e 29 29 0d 09 |Characte|rLen))..|
|000005d0| 09 70 74 72 32 20 3d 20 | 70 74 72 32 20 2b 20 31 |.ptr2 = |ptr2 + 1|
|000005e0| 0d 09 65 6e 64 20 64 6f | 0d 09 73 74 61 72 74 43 |..end do|..startC|
|000005f0| 20 3d 20 31 20 2b 20 28 | 70 74 72 32 20 2d 20 70 | = 1 + (|ptr2 - p|
|00000600| 74 72 31 29 0d 09 0d 63 | 20 66 69 6e 64 20 74 68 |tr1)...c| find th|
|00000610| 65 20 65 6e 64 20 6f 66 | 20 74 68 65 20 77 6f 72 |e end of| the wor|
|00000620| 64 0d 0d 09 70 74 72 33 | 20 3d 20 70 74 72 32 0d |d...ptr3| = ptr2.|
|00000630| 09 64 6f 20 77 68 69 6c | 65 20 28 28 2e 6e 6f 74 |.do whil|e ((.not|
|00000640| 2e 20 57 68 69 74 65 53 | 70 61 63 65 28 70 74 72 |. WhiteS|pace(ptr|
|00000650| 33 29 29 20 2e 61 6e 64 | 2e 20 28 28 70 74 72 33 |3)) .and|. ((ptr3|
|00000660| 2d 70 74 72 31 29 20 3c | 20 43 68 61 72 61 63 74 |-ptr1) <| Charact|
|00000670| 65 72 4c 65 6e 29 29 0d | 09 09 70 74 72 33 20 3d |erLen)).|..ptr3 =|
|00000680| 20 70 74 72 33 20 2b 20 | 31 0d 09 65 6e 64 20 64 | ptr3 + |1..end d|
|00000690| 6f 0d 09 73 74 6f 70 43 | 20 3d 20 73 74 61 72 74 |o..stopC| = start|
|000006a0| 43 20 2b 20 28 70 74 72 | 33 20 2d 20 70 74 72 32 |C + (ptr|3 - ptr2|
|000006b0| 29 20 2d 20 31 0d 09 69 | 66 20 28 73 74 6f 70 43 |) - 1..i|f (stopC|
|000006c0| 20 3c 20 73 74 61 72 74 | 43 29 20 73 74 6f 70 43 | < start|C) stopC|
|000006d0| 20 3d 20 73 74 61 72 74 | 43 0d 0d 63 20 72 65 74 | = start|C..c ret|
|000006e0| 75 72 6e 20 74 68 65 20 | 77 6f 72 64 20 28 74 75 |urn the |word (tu|
|000006f0| 72 6e 20 72 61 6e 67 65 | 20 63 68 65 63 6b 69 6e |rn range| checkin|
|00000700| 67 20 6f 66 66 29 0d 21 | 21 52 2d 0d 09 43 68 61 |g off).!|!R-..Cha|
|00000710| 72 57 6f 72 64 20 3d 20 | 70 74 72 31 5e 28 73 74 |rWord = |ptr1^(st|
|00000720| 61 72 74 43 3a 73 74 6f | 70 43 29 0d 09 0d 09 72 |artC:sto|pC)....r|
|00000730| 65 74 75 72 6e 0d 09 65 | 6e 64 0d 63 0d 63 2a 2a |eturn..e|nd.c.c**|
|00000740| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000750| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000760| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000770| 63 0d 63 0d 63 20 46 75 | 6e 63 74 69 6f 6e 20 57 |c.c.c Fu|nction W|
|00000780| 68 69 74 65 53 70 61 63 | 65 0d 63 09 54 61 6b 65 |hiteSpac|e.c.Take|
|00000790| 73 20 61 20 70 6f 69 6e | 74 65 72 20 74 6f 20 61 |s a poin|ter to a|
|000007a0| 20 63 68 61 72 61 63 74 | 65 72 20 61 73 20 69 6e | charact|er as in|
|000007b0| 70 75 74 2e 0d 63 09 52 | 65 74 75 72 6e 73 20 61 |put..c.R|eturns a|
|000007c0| 20 6c 6f 67 69 63 61 6c | 2a 34 20 54 52 55 45 20 | logical|*4 TRUE |
|000007d0| 69 66 20 74 68 65 20 63 | 68 61 72 61 63 74 65 72 |if the c|haracter|
|000007e0| 0d 63 09 20 20 69 73 20 | 61 20 74 61 62 2c 72 65 |.c.  is |a tab,re|
|000007f0| 74 75 72 6e 20 6f 72 20 | 73 70 61 63 65 2e 0d 63 |turn or |space..c|
|00000800| 0d 09 6c 6f 67 69 63 61 | 6c 2a 34 20 66 75 6e 63 |..logica|l*4 func|
|00000810| 74 69 6f 6e 20 57 68 69 | 74 65 53 70 61 63 65 28 |tion Whi|teSpace(|
|00000820| 70 74 72 29 0d 09 0d 09 | 70 6f 69 6e 74 65 72 20 |ptr)....|pointer |
|00000830| 2f 62 79 74 65 2f 20 70 | 74 72 0d 09 0d 09 73 65 |/byte/ p|tr....se|
|00000840| 6c 65 63 74 20 63 61 73 | 65 28 70 74 72 5e 29 0d |lect cas|e(ptr^).|
|00000850| 09 09 63 61 73 65 28 39 | 2c 31 33 2c 33 32 29 09 |..case(9|,13,32).|
|00000860| 21 41 53 43 49 49 20 76 | 61 6c 75 65 73 20 6f 66 |!ASCII v|alues of|
|00000870| 20 74 61 62 2c 20 72 65 | 74 75 72 6e 2c 20 73 70 | tab, re|turn, sp|
|00000880| 61 63 65 0d 09 09 09 57 | 68 69 74 65 53 70 61 63 |ace....W|hiteSpac|
|00000890| 65 20 3d 20 2e 74 72 75 | 65 2e 0d 09 09 63 61 73 |e = .tru|e....cas|
|000008a0| 65 20 64 65 66 61 75 6c | 74 0d 09 09 09 57 68 69 |e defaul|t....Whi|
|000008b0| 74 65 53 70 61 63 65 20 | 3d 20 2e 66 61 6c 73 65 |teSpace |= .false|
|000008c0| 2e 0d 09 65 6e 64 20 73 | 65 6c 65 63 74 0d 09 72 |...end s|elect..r|
|000008d0| 65 74 75 72 6e 0d 09 65 | 6e 64 0d 63 0d 63 2a 2a |eturn..e|nd.c.c**|
|000008e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000008f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000900| 2a 2a 2a 2a 2a 2a 63 0d | 00 00 00 00 00 00 00 00 |******c.|........|
|00000910| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000920| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000930| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000940| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000980| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00000990| 84 00 08 00 14 00 2c 00 | 44 30 2e ff e8 12 2a 01 |......,.|D0....*.|
|000009a0| 32 60 00 fe 0e 30 2e ff | f0 53 40 e9 40 43 f2 00 |2`...0..|.S@.@C..|
|000009b0| 0a 43 68 61 72 57 6f 72 | 64 2e 66 01 02 00 00 00 |.CharWor|d.f.....|
|000009c0| 50 61 72 74 53 49 54 78 | 00 00 00 00 00 00 00 00 |PartSITx|........|
|000009d0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|000009e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009f0| 00 00 a9 80 18 cf 00 00 | 00 00 00 00 01 7e 18 60 |........|.....~.`|
|00000a00| 22 20 1f 20 5f 2f 00 4e | 56 ff d6 48 e7 1f 38 28 |" . _/.N|V..H..8(|
|00000a10| 48 61 00 fd f6 60 0c 4e | 56 ff d6 48 e7 1f 38 61 |Ha...`.N|V..H..8a|
|00000a20| 00 fd e0 45 ee ff ea 3e | 12 04 47 00 0c 20 54 18 |...E...>|..G.. T.|
|00000a30| 28 00 0b 4a 28 00 0a 67 | 1c 6b 06 4a 07 6b 16 60 |(..J(..g|.k.J.k.`|
|00000a40| 12 4a 52 66 06 34 bc 00 | 0c 60 0a 4a 07 6b 06 66 |.JRf.4..|.`.J.k.f|
|00000a50| 02 7e 0c 34 87 76 02 4a | 2e 00 0c 66 02 53 43 30 |.~.4.v.J|...f.SC0|
|00000a60| 1a 20 4b 4a 04 5b c1 61 | 00 fd 48 d8 04 4a 43 67 |. KJ.[.a|..H..JCg|
|00000a70| 0a 22 54 10 29 00 14 61 | 00 fd 64 51 cb ff e2 22 |."T.)..a|..dQ..."|
|00000a80| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 6f 63 75 |...H..Mo|naco.ocu|
|00000a90| 6d 65 6e 74 0b 6f 70 65 | 6e 20 66 6f 6c 64 65 72 |ment.ope|n folder|
|00000aa0| 06 66 6f 6c 64 65 00 06 | 00 04 00 2c 00 04 00 bb |.folde..|...,....|
|00000ab0| 01 a2 00 2c 00 04 00 bb | 01 a2 a3 82 92 9c 00 00 |...,....|........|
|00000ac0| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 01 00 |........|........|
|00000ad0| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 2d cc 74 |...L...L|...2.-.t|
|00000ae0| 05 84 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.......2|..MPSR..|
|00000af0| 00 0a 03 ed ff ff 00 00 | 00 00 00 2f 71 08 00 00 |........|.../q...|
+--------+-------------------------+-------------------------+--------+--------+